;;;What is the smallest number divisible by each of the numbers 1 to 20? 
;;;
(defun p5 ()
  (apply
	'lcm
	(range 1 20)))

(defun range (start end)
  (loop for i from start to end collect i)) 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(format t "~a~%" (time (p5)))

;;; TODO DIY of the algorithm
